home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
EnigmA Amiga Run 1998 July
/
EnigmA AMIGA RUN 29 (1998)(G.R. Edizioni)(IT)[!][issue 1998-07 & 08].iso
/
recent
/
videoeasel.lha
/
Video Easel
/
CAMRexx
/
Life.rexx
< prev
next >
Wrap
OS/2 REXX Batch file
|
1995-03-31
|
510b
|
23 lines
/* CAMRexx-script for the "Game of Life" with echo */
MakeAlgorithm:
if plane=0 then
PLANEALGORITHM moore centers
if plane=1 then
PLANEALGORITHM echo center0
return
MakePlane:
if plane=0 then; do
sum8=north+south+west+east+n_west+n_east+s_west+s_east
if center=0 then; do
if sum8=3 then SETPLANE on
else SETPLANE off
end; else; do;
if sum8=2 | sum8=3 then SETPLANE on
else SETPLANE off
end
end;
return